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(3 33 DECLARATIONS 
(3) BASSPOWRJ = BASIC double ** Long 


H 15 
BASSPOWRJ Ps BA .C l af j oe Peo o 
va Creat w+ Loporérucine "SSeS EY SES I a 8 


| 
| 
000 1 TITLE ri ASSPOWRJ SIC real ** longword routine 
2090 ¢ - LDENT S808 : File: baSpowku. MAR Edit: anos 505 
0000 ¢ < seneneeeeeecccrcceereeeoeenrenereeeeeeceeenscrceeeeqcoosereceeesceqesceeeees 
3@ * 
0000 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0000 8 ;* DIGITAL EQUIPMENT €ORPORATION, - MAYNARD. MASSACHUSETTS. * 
4 10 :* ALL RIGHTS RESERVED. * 
e ® 
0000 11 ;* THIS SOFTWARE IS F sion UNDER A LICENSE AND MAY BE USED AND sores * 
8808 \¢ :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
000 15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
444 \§ :* TRANSFERRED. ® 
D4 ® 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
B00 $0 - CORPORATION. * 
° ® 
0000 $6 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
8008 i e SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: P4 ® 
0000 $e 3* * 
i 8 FRAAAAAAAAA AAA ATA A ATALANTA A KATA AAA KATA AAAAKAAAAKe eee eee eeeeeA Tee Aes 
| 0000 28° 
0000 $3 3++ ; 
0000 0 ; FACILITY: Basic Support Library 
| 0000 a1 3 
4464 3 3; ABSTRACT: 
0000 4: This module contains entry points to waeert = exponentiation 
4 i : (** or *) in BASIC-PLUS<2 for REAL ** LONGWORD 
0000 7 : ENVIRONMENT: User Mode, AST Reentrant 
0000 8; 
0000 9 3-- 
Bn08 re 3; AUTHOR: R. Will , CREATION DATE: 22-NOV-78 
0000 4g : MODIFIED BY: 
0000 43; 
8008 44; Rk. Will, : VERSION 01 
000 45 ; 1-01 = Original 
4 $6 3; 1-02. = Redo co GRnEnts JMP instead of BRW. RW 5-Dec-78 
000 47 ; 1-003 - Add "'."* to the PSECT directive. — 22-DEC-7 
0000 48 ; 1-004 = Redo fhe case analysis for pase leq 0 ay compatehth ite 
0000 49; with the PDP-11. JBS 24-APR-197 
0000 50 ; 1-005 - lone. shared external references to G* RNH 25-Sep-81 


** Longword routine eis i ak Sth 9 98:00: 2 es Macro v04-00 Page (3) 


BASSPOWRJ ; BASIC real 
1-005 BECLARATIONS 6-SEP=1984 BASRTL. SRCIBASPOWRJ.MAR: 1 
$08 , ~SBTTL DECLARATIONS 
099 ; INCLUDE FELES: 
000 
000 H 
$38 3; EXTERNAL DECLARATIONS: 
000 ‘ -DSABL GBL 3; Prevent undeclared 
0000 3 symbols from meres 
4464 3; automatically glebal. 
$000 -EXTRN OTSSPOWRJ ; OTS$ double a int exponentation 
0000 XTRN BASSK_DIVBY_ZER 3 Divide by Zer 
ia [EXTRN BASSS$STOP : Error reporting routine 


: MACROS: 
t EQUATED SYMBOLS: 


: OWN STORAGE: 


Sooooooooooosoo 
SOQOoooooooosacoo 


: PSECT DECLARATIONS: 


09.09 09 0909 09 SII NINN NINN NAA AAAAAAAAMMIMNIVIUIVIUIW 
MEW SO OONAU EWN 2 O ODNOA UE WWIN  O OOONIOAUNSE WP 
* 


0000 
00000000 -PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
44 EXE, RD, NOWRT, LONG 


FUNCTION VALUE: 
COMPLETION CODES: 


floating result of exponentiation 
SIDE EFFECTS: 


Will signal Divide oy Zero if its arguments are bad, 
als 


and OTSSPOWRJ may © signal. 
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BASSPOWRJ ; BASIC real ** Longword routine 16-SEP-1984 00:00:52 VAX/VMS M v04-00 P 
| 1-005 BASS$POWRJ - BASIC Jouble ** long 66-SEP-1984 08:90:28 BASRTL.SRCIBASPOWRJ MAR: 1 re 3) 

B60 z wer -SBTTL BASSPOWRJ = BASIC double ** Long 

909 ; ! FUNCTIONAL DESCRIPTION: 

000 91: This routine takes BASE ** EXP, using the following table 
$08 35 3 for unusual cases: 
000 94: BASE > 0 Call OTSSPOWRJ, l ‘ 
000 «98: BASE = 0, EXP > 0 Sebeee O.Bc tens 
000 96 ; BASE = 0, EXP = 0 Return 1.9. 

000 97 ; BASE = 0, EXP < 0 Error: divide by zero 

00 38 3 BASE < 8. EXP even Call OTSSPOWRJ with -BASE 
4 + : BASE < 0, EXP odd Call OTSSPOWRJ with -BASE, negate result 
909 1 3 CALLING SEQUENCE: 

O88 08 ; CALL result.wf.v = BASSPOWRJ (base.rf.v, exponent.rl.v) 

00 105 : INPUT PARAMETERS: 

00 06 ; 

00000004 00 07 base = 4 
00000008 $8 88 exponent = 8 

9 IMPLICIT INPUTS: 

4 NONE 

+ OUTPUT PARAMETERS: 

+ NONE 

80 IMPLICIT OUTPUTS: 

00 NONE 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


Be Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Se Ge Se 


0000° BASSPOWRJ: : MASK OTSS$POWRJ Entry point 

Since this routine uses no 

registers and usually transfers 

control to OTSSPOWRJ, we copy 

its register save mask and then 

JMP past its save mask and only 

save the registers once 

; Test base relationship to zero 
If base leq 0, do case analysis 

; Transfer control to the OTS 


04 ac 
00000002 ° GF 


TSTF base (AP) 
BLEQ 
JMP G*OTSSPOWRJ+2 


a a a a a ed = 8 8 od od od od od = oS SD —) —) — — 2) I 2 


PPL FWWINIIWIWIWIWIWIWINIRININININININININD 2 2 Ot OO OO 
WRI 0 ODNOAUE WIN 9 ODNAUE WN (CO OONAUS WN O 


= 
NVI 
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BASSPOWRJ ; BASIC real ** Longword routine 16-SEP-1984 00:00:52 VAX/VMS Macro v04-00 Pa 4 
1-005 = BASIC gree obe 4054 oe 


BASSPOWRJ - B ouble ** Long - 4:41 [BASRTL.SRCJBASPOWRJ.MAR; 1 (3) 
Oop 1% am 3 routine to do exponentiation 
00D 129 : Come here if the base is less than or equal to zero. We must filter 
44 rt ; several special cases, as described above. 
16 13 0000 149 is: BEQL = 4$ : Branch if base = 0 
08 AC DD OOOF 150 PUSHL exponent (AP) 3; Stack EXP as parameter to OTS$POWRJ 
7E O4 AC 52 O012 = 151 MNEGF base(AP), -(SP) 3; Stack -base also 
QOO0O00000'GF 03 FB 0016 13 CALLS #3, G*OTS$SPOWRJ 3; Call integer power routines 
AC £8 001D 15 BLBC exponent (AP) ,2$ ; Branch if exponent even 
50. —Sss« 50 2 0021 154 MNEGF RO, RO 3 Exponent odd negate the result 
04 00 , 138 28: RET : and return with it. 
0025 157 : Come here if the base is equal to zero. The value we return depends 
pose 138 3 upon the sign of the exponent. 
08 AC 05 0025 160 4s: TSTL exponent (AP) ; Test the exponent mpotess zero 
09 19 0028 #£«161 BLSS 6$ 3; Branch if exponent [ss 0 
03 13 Bose 16¢ ‘ BEQL 5$ ; Branch if exponent is 0 
002C 164 ; Come here if the base is zero and the exponent is greater than zero. 
002C 165 ; BASIC defines this as 0.0. 
002C 166 ;:- 
50 D4 O002C 167 CLRF RO ; RO = 0.0 
04 OO2E 168 RET 3; Return to caller 
OO2F 169 ;+ 
O02F 170 ; Come here if the base is zero and the exponent is zero. BASIC defines 
002F 171 ; this as 1.0. 
OO2F 172 ;:- 
50 08 50 O0¢F 173 5s: MOVF #1, RO : RO = 1.0 
04 00 ; 174 RET ; Return to caller. 
003 175 3+ 
0033 176 ; Come here if the base is zero and the exponent is less than zero. 
ee ve ; BASIC defines this as an error. 
7E 00" 8F 9A 0033 179 és: MOVZBL M#BASSK_DIVBY_ZER, -(SP) ; Divide by zero 
00000000'GF 01 FB ote 199 CALLS #1, G*BASS$STOP ; Report error, never return. 
00O3E 182 ° END 


L 15 
BASSPOWRJ 3; BASIC real ** Longword routine 16-SEP-1984 00:00:5 AX/VMS Macro v04-00 P 
Symbol table ° gree r1b8d forgeed | LOASRTE. Sarsaseouny.mar:1 2% (3) 


BASSSSTOP eeeenere §=6X = =600 
BASSK DIVBY_ZER seeereee =X = 00 
BASSPOWRJ 00000000 RG 01 
BASE = 00000004 
EXPONENT = 00000008 
OTSSPOWRJ eeeeeere =X = ©6600 
poe wmesensnsr ems ames + 
: Psect synopsis ! 
Pewee enwnw sone osm esce + 
PSECY name Allocation PSECT No. Attributes 
- ABS. . 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
BASSCODE QOOOO03E (¢ 62.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


foeeececeooeneeoeceucecces 


Goececceecoeeesooocecosoen$ 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.06 00:00:00.44 
Command processing 110 00:00:00.48 00:00:04.06 
Pass 72 00:00:00.43 00:00:00.85 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 48 00:00:00.34 00:00:00.85 
Symbol table output 2 00:00:00.01 00:00:00.0 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 265 00:00:01.34 00:00:06.25 


The working set Limit was 900 pages. 

1934 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 6 non-local and 5 local symbols. 
182 source Lines were read in Pass 1, producing 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Macro Library statistics : 


: 
pore mame me Sree ween ace ae 


Macro Library name Macros defined 
~$255$DUA28: (SYSLIBISTARLET.MLB;2 Fae 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASPOWRJ/OBJ=OBJ$:BASPOWRJ MSRC$:BASPOWRJ/UPDATE=(ENHS:BASPOWRJ ) 
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